home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD005b.dsk / WORD.PROBLEMS.bas < prev   
BASIC Source File  |  2003-06-12  |  3KB  |  81 lines
  1. 10  REM  WORD PROBLEMS: ADDING TO 20
  2. 20  TEXT : HOME : SPEED= 255
  3. 30  VTAB 11
  4. 40  PRINT ">>>>> ADDLE APPLE WORD PROBLEMS <<<<<"
  5. 50  PRINT : PRINT "          ADDING TO TWENTY"
  6. 60  FOR P = 1 TO 2500: NEXT 
  7. 70  HOME : VTAB 12
  8. 100  FOR J = 0 TO 6
  9. 110  READ A$(J)
  10. 115  NEXT 
  11. 120  FOR J = 0 TO 5
  12. 130  READ B$(J)
  13. 135  NEXT 
  14. 140  FOR J = 0 TO 5
  15. 150  READ C$(J)
  16. 155  NEXT 
  17. 160  DATA  "NESTOR","JOSHUA","MANESSA","COOKIE","EDELWEISS","ELIOT","PEACE"
  18. 162  DATA  "KITTENS","TENNIS BALLS","COOKIES","PENNIES","MICE","SEEDS"
  19. 164  DATA  "PAULA","BOBBY","TAMMY","HEATHER","TONY","RICHIE" 
  20. 170  PRINT "HI! I'M ADDLE APPLE. WHAT'S YOUR NAME?"
  21. 180  INPUT "";N$: PRINT : PRINT : PRINT 
  22. 200  PRINT "HOW MANY QUESTIONS TODAY, ";N$;"?"
  23. 205  INPUT "";NQ
  24. 210 Z = Z +1
  25. 220  HOME : VTAB 8
  26. 250  GOSUB 4000
  27. 300  PRINT "IF ";A$(M);" HAD ";G;" ";B$(N);","
  28. 310  PRINT 
  29. 320  PRINT "AND ";C$(O);" GAVE ";H;" MORE ";B$(N)
  30. 330  PRINT 
  31. 340  PRINT "HOW MANY WOULD ";A$(M);" HAVE IN ALL?"
  32. 350  PRINT 
  33. 360  INPUT "";A
  34. 370  IF A = G +H  THEN  GOSUB 1000
  35. 380  IF A < >G +H  THEN  GOSUB 2000
  36. 390  IF Z = NQ  THEN  GOSUB 3000
  37. 400  GOTO 210
  38. 1000  HOME : VTAB 15:R =  INT(( RND(1) *5) +1): ON R GOTO 1001,1002,1003,1004,1005
  39. 1001  PRINT "I'M PROUD OF YOU, ";N$;"!": GOTO 1010
  40. 1002  PRINT "YOU'VE BEEN STUDYING! WOW!": GOTO 1010
  41. 1003  PRINT "I THINK YOU'RE SMART ENOUGH TO MARRY ME!": GOTO 1010
  42. 1004  PRINT A$(M);" SAYS YOU'RE RIGHT!!!": GOTO 1010
  43. 1005  PRINT "RIGHT! GOOD WORK, ";N$;"."
  44. 1007  IF T = 1  THEN T = 0: FOR P = 1 TO 3500: NEXT : RETURN 
  45. 1010  IF T = 1  THEN T = 0: FOR P = 1 TO 3500: NEXT : RETURN 
  46. 1012 QR = QR +1
  47. 1015  FOR P = 1 TO 3500: NEXT 
  48. 1020  RETURN 
  49. 2000  HOME : VTAB 15:R =  INT(( RND(1) *5) +1): ON R GOTO 2001,2002,2003,2004,2005
  50. 2001  PRINT "SORRY, ";N$;". THAT'S NOT IT.": GOTO 2010
  51. 2002  PRINT "NO. TRY AGAIN, ";N$;".": GOTO 2010
  52. 2003  PRINT A$(M);" THINKS YOU'RE WRONG!": GOTO 2010
  53. 2004  PRINT "NOT IT!": GOTO 2010
  54. 2005  PRINT "WRONG. YOU MUST NOT BE A COMPUTER!!!"
  55. 2010  IF T = 1  THEN T = 0: FOR P = 1 TO 3500: NEXT : RETURN 
  56. 2011 QW = QW +1
  57. 2012 T = 1
  58. 2014  PRINT : PRINT "LET'S TRY AGAIN.": FOR P = 1 TO 3500: NEXT : HOME : VTAB 6: POP : GOTO 300
  59. 2015  FOR P = 1 TO 3500: NEXT 
  60. 2020  RETURN 
  61. 3000  HOME : VTAB 12
  62. 3010  PRINT "THAT'S ALL ";NQ;" QUESTIONS, ";N$;"."
  63. 3020  PRINT 
  64. 3030  PRINT "YOU GOT ";QR;" RIGHT AND ";QW;" WRONG."
  65. 3040  PRINT 
  66. 3050  IF QR = NQ  THEN  PRINT "PERFECT SCORE!!!"
  67. 3060  IF QR/NQ <1.0  AND QR/NQ > = .90  THEN  PRINT "EXCELLENT WORK! ALMOST ALL RIGHT!"
  68. 3070  IF QR/NQ <.75  THEN  PRINT "GOOD TRY, ";N$;", BUT I THINK YOU": PRINT "COULD USE A LITTLE MORE PRACTICE!"
  69. 3100  PRINT 
  70. 3110  PRINT : PRINT "DO YOU WANT TO TRY AGAIN?"
  71. 3115  INPUT "";L$
  72. 3120  IF  LEFT$(L$,1) = "Y"  THEN  HOME : RESTORE : VTAB 6: CLEAR : GOTO 70
  73. 3200  PRINT : PRINT : PRINT "OKAY, SEE YOU LATER, ";N$;"."
  74. 3210  END 
  75. 4000  HOME : VTAB 6
  76. 4010 M =  RND(1) *7
  77. 4020 N =  RND(1) *6
  78. 4030 O =  RND(1) *6
  79. 4040 G =  INT( RND(1) *9) +2
  80. 4050 H =  INT( RND(1) *9) +2
  81. 4060  RETURN